10 REM MASARATI ===============64
15 REM (P) 12/85 CBM REVUE TEAM =
20 REM ==========================
25 REM (C) 12/85 BY             =
30 REM KLAUS DILLINGER          =
35 REM                          =
40 REM                          =
45 REM C-64 + 1530/1541         =
50 REM ==========================
60 CL$=CHR$(147):WH$=CHR$(5):C4$=CHR$(17):CY$=CHR$(159)
80 P=54272:V=53248:POKEV+32,0:POKEV+33,0
90 PRINTCL$C4$C4$C4$TAB(8)WH$"GESCHWINDIGKEIT (1-9)"
100 GETA$:IFA$=""THEN100
105 IFASC(A$)<49ORASC(A$)>57THEN100
110 PRINTC4$C4$C4$TAB(8)"FAHRBAHNBREITE (1-9)"
120 GETB$:IFB$=""THEN120
125 IFASC(B$)<49ORASC(B$)>57THEN120
130 PRINTC4$C4$C4$TAB(8)"SCHWIERIGKEITSGRAD(1-9)"
140 GETC$:IFC$=""THEN140
145 IFASC(C$)<49ORASC(C$)>57THEN140
150 PRINTCL$"WAIT A MOMENT."
160 IFS=0THENFORT=0TO62:READA:POKE704+T,A:S=S+A:NEXT:POKE2040,11
161 IFS<>9558THENPRINT"FEHLER IN SPRITE-DATAS":END
162 IFL=0THENFORT=49152TO49395:READA:L=L+A:POKET,A:NEXT
163 IFL<>32178THENPRINT"FEHLER IN MASCHINENPROGRAMM-DATAS":END
170 A=10-VAL(A$):B=VAL(B$):C=VAL(C$):D=6+B:POKE181,D:POKE182,A
175 POKE183,C:POKEV,172:POKEV+1,210
180 PRINTCY$CL$;:FORT=1TO24:PRINTTAB(20-D/2)"[166]"TAB(20+D/2)"[166]":NEXT
190 POKEV+21,1:POKE185,2:POKE186,1:POKE187,PEEK(183):POKE188,20-D/2
195 X=PEEK(V+31):POKE191,10:POKEP+24,15:POKEP+5,100:POKEP+6,100:POKEP+4,33
200 POKEV+39,7:POKE140,10:SYS49205
201 POKEP+4,0:POKEP+5,0:POKEP+6,0
205 POKEP+8,10:POKEP+13,218:POKEP+11,129
206 POKEP+24,0:POKEP+11,128:FORT=1TO15:POKEP+24,T:NEXT
207 POKEV+21,0:PRINTWH$CL$C4$C4$C4$TAB(5)"NOCH EIN VERSUCH(J/N)"
208 GETR$:IFR$<>"J"ANDR$<>"N"THEN208
209 IFR$="J"THENGOTO90
1000 REM DATAS
1001 DATA1,129,128,3,255,192,27,219,216,27,219,216,31,195,248,31,255,248,27
1002 DATA255,216,27,255,216,3,255,192,3,255,192,7,153,224,119,189,238,119
1003 DATA165,238,119,66,238,126,90,126,126,126,126,119,60,238,119,129,238
1004 DATA15,255,240,31,227,248,63,193,252
1005 REM DATAS FUER MASCHINENPROGRAMM
1006 DATA162,24,160,7,132,140,132,142,160,152,132,139,160,192,132,141,160
1007 DATA0,177,139,145,141,200,192,39,208,247,165,139,56,233,40,176,2,198
1008 DATA140,133,139,165,141,56,233,40,133,141,176,2,198,142,202,208,220,96
1009 DATA32,231,192,32,82,192,32,97,192,198,191,208,243,169,5,133,191,32,0
1010 DATA192,32,141,192,173,31,208,240,228,96,160,0,162,0,232,224,40,208,251
1011 DATA200,196,182,208,244,96,198,185,240,1,96,169,1,133,185,173,1,220,41
1012 DATA4,208,10,206,0,208,208,5,169,0,141,16,208,173,1,220,41,8,208,10,238
1013 DATA0,208,208,5,169,1,141,16,208,96,160,39,169,32,153,0,4,136,208,250
1014 DATA198,187,208,25,165,186,201,1,208,7,169,255,133,186,76,172,192,169
1015 DATA1,133,186,165,162,41,15,101,183,133,187,165,186,201,1,208,2,230,188
1016 DATA165,186,201,255,208,2,198,188,165,188,169,4,133,189,160,0,169,102
1017 DATA145,188,165,181,168,169,102,145,188,165,188,201,5,48,5,201,23,176
1018 DATA1,96,169,1,133,187,96,230,139,165,139,41,7,105,3,141,1,212,96,0
2000 REM MASARATI ==============64
2100 REM 38911 BYTES MEMORY    ===
2200 REM 02789 BYTES PROGRAM   ===
2300 REM 00126 BYTES VARIABLES ===
2400 REM 00000 BYTES ARRAYS    ===
2500 REM 00008 BYTES STRINGS   ===
2600 REM 35988 BYTES FREE (0)  ===
2700 REM =========================